home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Shareware Grab Bag
/
Shareware Grab Bag.iso
/
090
/
vol6n10.arc
/
SLASHBAR.BAS
< prev
next >
Wrap
BASIC Source File
|
1987-03-23
|
19KB
|
273 lines
100 REM -- BASIC PROGRAM TO CREATE SLASHBAR.COM
110 OPEN "SLASHBAR.COM" AS #1 LEN = 1
120 FIELD #1,1 AS A$
130 CHECKSUM = 0
140 FOR I = 1 TO 253
150 LINESUM = 0
160 FOR J = 1 TO 8
170 READ BYTE
180 CHECKSUM = CHECKSUM + BYTE
190 LINESUM = LINESUM + BYTE
200 IF (BYTE < 256) THEN LSET A$ = CHR$(BYTE)
210 PUT #1
220 NEXT J
230 READ LINECHECK
240 IF LINECHECK <> LINESUM THEN PRINT "Error in Line";280 + 10 * I
250 NEXT I
260 CLOSE
270 IF CHECKSUM = 206377 THEN PRINT "Successful Completion!" : END
280 PRINT "COM file is not valid!" : END
290 DATA 233, 116, 6, 83, 108, 97, 115, 104, 862
300 DATA 66, 97, 114, 32, 49, 46, 48, 32, 484
310 DATA 40, 99, 41, 32, 49, 57, 56, 55, 429
320 DATA 44, 32, 90, 105, 102, 102, 45, 68, 588
330 DATA 97, 118, 105, 115, 32, 80, 117, 98, 762
340 DATA 108, 105, 115, 104, 105, 110, 103, 32, 782
350 DATA 67, 111, 114, 112, 46, 13, 10, 36, 509
360 DATA 26, 82, 111, 98, 101, 114, 116, 32, 680
370 DATA 76, 46, 32, 72, 117, 109, 109, 101, 662
380 DATA 108, 0, 0, 0, 0, 0, 0, 0, 108
390 DATA 0, 0, 0, 0, 0, 0, 0, 0, 0
400 DATA 0, 0, 0, 0, 0, 0, 0, 0, 0
410 DATA 0, 0, 251, 80, 228, 96, 60, 53, 768
420 DATA 117, 10, 180, 2, 205, 22, 36, 15, 587
430 DATA 60, 8, 116, 6, 88, 46, 255, 46, 625
440 DATA 73, 1, 228, 97, 138, 224, 12, 128, 901
450 DATA 230, 97, 138, 196, 235, 0, 230, 97, 1223
460 DATA 250, 176, 32, 230, 32, 251, 46, 128, 1145
470 DATA 62, 89, 1, 0, 117, 50, 46, 161, 526
480 DATA 155, 3, 46, 59, 6, 157, 3, 117, 546
490 DATA 39, 46, 254, 6, 89, 1, 180, 1, 616
500 DATA 205, 22, 46, 198, 6, 89, 1, 0, 567
510 DATA 117, 22, 30, 83, 46, 197, 30, 85, 610
520 DATA 1, 128, 63, 0, 116, 12, 46, 128, 494
530 DATA 62, 90, 1, 0, 117, 4, 91, 31, 396
540 DATA 88, 207, 46, 199, 6, 183, 3, 23, 755
550 DATA 4, 180, 15, 232, 128, 0, 46, 136, 741
560 DATA 62, 91, 1, 60, 1, 116, 19, 60, 410
570 DATA 3, 116, 15, 46, 199, 6, 183, 3, 571
580 DATA 7, 112, 60, 7, 116, 4, 60, 2, 368
590 DATA 119, 212, 46, 198, 6, 89, 1, 1, 672
600 DATA 81, 82, 87, 86, 6, 85, 140, 200, 767
610 DATA 142, 216, 142, 192, 140, 22, 94, 1, 949
620 DATA 137, 38, 96, 1, 250, 142, 208, 188, 1060
630 DATA 0, 1, 251, 180, 3, 232, 62, 0, 729
640 DATA 137, 22, 92, 1, 191, 232, 8, 190, 873
650 DATA 255, 255, 232, 54, 0, 232, 135, 0, 1163
660 DATA 232, 142, 1, 190, 232, 8, 232, 42, 1079
670 DATA 0, 180, 2, 139, 22, 92, 1, 232, 668
680 DATA 28, 0, 161, 94, 1, 139, 30, 96, 549
690 DATA 1, 250, 142, 208, 139, 227, 251, 198, 1416
700 DATA 6, 89, 1, 0, 93, 7, 94, 95, 385
710 DATA 90, 89, 91, 31, 88, 207, 85, 205, 886
720 DATA 16, 93, 195, 252, 138, 62, 91, 1, 848
730 DATA 185, 4, 0, 198, 6, 182, 3, 0, 578
740 DATA 144, 81, 185, 80, 0, 198, 6, 181, 875
750 DATA 3, 0, 144, 131, 254, 255, 116, 6, 909
760 DATA 173, 232, 185, 3, 235, 9, 232, 223, 1292
770 DATA 3, 180, 8, 232, 208, 255, 171, 254, 1311
780 DATA 6, 181, 3, 226, 230, 89, 254, 6, 995
790 DATA 182, 3, 226, 213, 195, 2, 0, 181, 1002
800 DATA 83, 108, 97, 115, 104, 66, 97, 114, 784
810 DATA 32, 49, 46, 48, 198, 0, 201, 205, 779
820 DATA 187, 186, 32, 186, 200, 205, 188, 184, 1368
830 DATA 0, 6, 181, 0, 136, 46, 182, 3, 554
840 DATA 177, 0, 182, 3, 178, 79, 138, 62, 819
850 DATA 183, 3, 232, 145, 255, 138, 62, 91, 1109
860 DATA 1, 138, 38, 183, 3, 190, 166, 2, 721
870 DATA 139, 209, 185, 4, 0, 81, 198, 6, 822
880 DATA 181, 3, 0, 144, 172, 232, 85, 3, 820
890 DATA 172, 185, 78, 0, 254, 6, 181, 3, 879
900 DATA 232, 74, 3, 226, 247, 254, 6, 181, 1223
910 DATA 3, 172, 232, 64, 3, 254, 6, 182, 916
920 DATA 3, 89, 128, 249, 4, 116, 8, 128, 725
930 DATA 249, 2, 116, 3, 131, 238, 3, 226, 968
940 DATA 204, 190, 149, 2, 173, 163, 181, 3, 1065
950 DATA 138, 38, 183, 3, 232, 15, 3, 195, 807
960 DATA 128, 252, 0, 117, 13, 180, 76, 46, 812
970 DATA 198, 6, 90, 1, 0, 46, 255, 46, 642
980 DATA 81, 1, 128, 252, 12, 119, 240, 46, 879
990 DATA 198, 6, 90, 1, 1, 156, 46, 255, 753
1000 DATA 30, 81, 1, 46, 198, 6, 90, 1, 453
1010 DATA 0, 202, 2, 0, 0, 46, 128, 62, 440
1020 DATA 89, 1, 0, 117, 63, 128, 252, 2, 652
1030 DATA 115, 5, 46, 136, 38, 68, 3, 251, 662
1040 DATA 83, 46, 139, 30, 157, 3, 46, 59, 563
1050 DATA 30, 155, 3, 116, 38, 128, 252, 2, 724
1060 DATA 116, 33, 128, 252, 0, 116, 10, 60, 715
1070 DATA 1, 117, 24, 10, 192, 91, 202, 2, 639
1080 DATA 0, 46, 139, 30, 157, 3, 46, 139, 560
1090 DATA 7, 46, 131, 6, 157, 3, 2, 91, 443
1100 DATA 202, 2, 0, 91, 46, 255, 46, 77, 719
1110 DATA 1, 128, 14, 0, 16, 0, 0, 0, 159
1120 DATA 0, 0, 0, 104, 11, 104, 11, 126, 356
1130 DATA 4, 148, 4, 156, 4, 197, 4, 124, 641
1140 DATA 4, 124, 4, 124, 4, 205, 4, 124, 593
1150 DATA 4, 124, 4, 9, 5, 0, 0, 7, 153
1160 DATA 112, 252, 51, 255, 184, 104, 11, 163, 1132
1170 DATA 155, 3, 163, 157, 3, 137, 133, 0, 751
1180 DATA 14, 199, 133, 64, 14, 10, 0, 137, 571
1190 DATA 62, 149, 3, 137, 62, 151, 3, 139, 706
1200 DATA 46, 145, 3, 198, 6, 182, 3, 0, 583
1210 DATA 198, 6, 181, 3, 68, 138, 38, 183, 815
1220 DATA 3, 176, 181, 232, 71, 2, 139, 245, 1049
1230 DATA 185, 10, 0, 254, 6, 181, 3, 172, 811
1240 DATA 10, 192, 116, 5, 232, 54, 2, 226, 837
1250 DATA 242, 176, 198, 232, 47, 2, 232, 68, 1197
1260 DATA 2, 139, 62, 151, 3, 209, 231, 139, 936
1270 DATA 133, 0, 14, 163, 155, 3, 232, 46, 746
1280 DATA 1, 139, 3, 163, 153, 3, 232, 49, 743
1290 DATA 1, 232, 103, 1, 232, 135, 1, 10, 715
1300 DATA 192, 117, 5, 232, 133, 1, 235, 214, 1129
1310 DATA 232, 180, 1, 232, 188, 1, 115, 5, 954
1320 DATA 232, 224, 2, 235, 201, 60, 255, 117, 1326
1330 DATA 26, 131, 62, 151, 3, 0, 116, 12, 501
1340 DATA 255, 14, 151, 3, 199, 6, 149, 3, 780
1350 DATA 0, 0, 235, 178, 199, 6, 155, 3, 776
1360 DATA 104, 11, 195, 232, 233, 0, 161, 149, 1085
1370 DATA 3, 64, 179, 6, 246, 227, 3, 248, 976
1380 DATA 139, 51, 3, 245, 172, 138, 216, 128, 1092
1390 DATA 251, 10, 119, 8, 208, 227, 50, 255, 1128
1400 DATA 255, 167, 159, 3, 235, 214, 232, 204, 1469
1410 DATA 1, 198, 6, 182, 3, 1, 198, 6, 595
1420 DATA 181, 3, 2, 138, 38, 183, 3, 232, 780
1430 DATA 148, 1, 235, 216, 184, 13, 28, 232, 1057
1440 DATA 218, 1, 235, 208, 255, 6, 151, 3, 1077
1450 DATA 139, 62, 151, 3, 131, 255, 32, 114, 887
1460 DATA 5, 232, 111, 2, 235, 166, 209, 231, 1191
1470 DATA 161, 155, 3, 137, 133, 0, 14, 173, 776
1480 DATA 137, 133, 64, 14, 199, 6, 149, 3, 705
1490 DATA 0, 0, 233, 65, 255, 232, 200, 1, 986
1500 DATA 115, 162, 233, 57, 255, 50, 228, 172, 1272
1510 DATA 10, 192, 116, 152, 60, 254, 117, 14, 915
1520 DATA 172, 60, 254, 117, 5, 184, 10, 28, 830
1530 DATA 235, 34, 134, 224, 235, 30, 180, 28, 1100
1540 DATA 60, 13, 116, 24, 180, 1, 60, 27, 481
1550 DATA 116, 18, 180, 14, 60, 8, 116, 12, 524
1560 DATA 60, 127, 116, 8, 254, 196, 60, 9, 830
1570 DATA 116, 2, 50, 228, 232, 109, 1, 235, 973
1580 DATA 196, 139, 30, 155, 3, 59, 30, 157, 769
1590 DATA 3, 116, 51, 128, 62, 68, 3, 0, 431
1600 DATA 116, 10, 131, 46, 155, 3, 2, 131, 594
1610 DATA 235, 2, 235, 9, 139, 30, 157, 3, 810
1620 DATA 131, 6, 157, 3, 2, 139, 15, 30, 483
1630 DATA 51, 192, 142, 216, 187, 26, 4, 250, 1068
1640 DATA 199, 7, 30, 0, 199, 71, 2, 32, 540
1650 DATA 0, 137, 79, 4, 251, 31, 195, 139, 836
1660 DATA 62, 151, 3, 209, 231, 139, 189, 64, 1048
1670 DATA 14, 195, 198, 6, 182, 3, 1, 198, 797
1680 DATA 6, 181, 3, 1, 51, 210, 139, 14, 605
1690 DATA 153, 3, 232, 226, 255, 139, 115, 2, 1125
1700 DATA 3, 245, 138, 38, 183, 3, 176, 32, 818
1710 DATA 254, 6, 181, 3, 232, 190, 0, 57, 923
1720 DATA 22, 149, 3, 117, 4, 138, 38, 184, 655
1730 DATA 3, 232, 162, 0, 66, 131, 199, 6, 799
1740 DATA 226, 219, 195, 198, 6, 182, 3, 2, 1031
1750 DATA 198, 6, 181, 3, 2, 232, 175, 255, 1052
1760 DATA 161, 149, 3, 179, 6, 246, 227, 3, 974
1770 DATA 248, 139, 115, 4, 3, 245, 138, 38, 930
1780 DATA 183, 3, 232, 121, 0, 195, 50, 228, 1012
1790 DATA 205, 22, 195, 139, 30, 149, 3, 139, 882
1800 DATA 14, 153, 3, 73, 128, 252, 77, 117, 817
1810 DATA 9, 67, 59, 217, 118, 14, 51, 219, 754
1820 DATA 235, 10, 128, 252, 75, 117, 10, 75, 902
1830 DATA 121, 2, 139, 217, 137, 30, 149, 3, 798
1840 DATA 195, 128, 252, 71, 116, 232, 128, 252, 1374
1850 DATA 79, 116, 239, 232, 53, 1, 195, 60, 975
1860 DATA 97, 114, 6, 60, 122, 119, 2, 44, 564
1870 DATA 32, 195, 60, 27, 117, 4, 176, 255, 866
1880 DATA 248, 195, 139, 216, 161, 149, 3, 128, 1239
1890 DATA 251, 13, 116, 244, 51, 210, 139, 14, 1038
1900 DATA 153, 3, 232, 58, 255, 139, 115, 2, 957
1910 DATA 3, 245, 172, 58, 195, 116, 8, 66, 863
1920 DATA 131, 199, 6, 226, 240, 249, 195, 139, 1385
1930 DATA 194, 163, 149, 3, 235, 210, 172, 10, 1136
1940 DATA 192, 116, 9, 232, 7, 0, 254, 6, 816
1950 DATA 181, 3, 235, 242, 195, 80, 83, 81, 1100
1960 DATA 232, 37, 0, 185, 1, 0, 138, 220, 813
1970 DATA 180, 9, 138, 62, 91, 1, 232, 13, 726
1980 DATA 252, 89, 91, 88, 195, 184, 0, 6, 905
1990 DATA 181, 1, 182, 2, 177, 1, 178, 78, 800
2000 DATA 138, 62, 183, 3, 232, 247, 251, 195, 1311
2010 DATA 80, 83, 82, 139, 22, 181, 3, 180, 770
2020 DATA 2, 138, 62, 91, 1, 232, 230, 251, 1007
2030 DATA 90, 91, 88, 195, 83, 81, 139, 14, 781
2040 DATA 155, 3, 139, 217, 129, 233, 104, 11, 991
2050 DATA 129, 249, 0, 2, 116, 7, 137, 7, 647
2060 DATA 131, 6, 155, 3, 2, 89, 91, 195, 672
2070 DATA 80, 81, 86, 198, 6, 182, 3, 2, 638
2080 DATA 198, 6, 181, 3, 1, 232, 192, 255, 1068
2090 DATA 184, 32, 10, 138, 62, 91, 1, 185, 703
2100 DATA 78, 0, 232, 169, 251, 190, 104, 13, 1037
2110 DATA 139, 206, 129, 233, 104, 13, 232, 167, 1223
2120 DATA 255, 232, 242, 254, 10, 192, 116, 240, 1541
2130 DATA 60, 13, 116, 66, 60, 27, 116, 55, 513
2140 DATA 60, 8, 116, 24, 129, 249, 152, 0, 738
2150 DATA 119, 22, 137, 4, 131, 198, 2, 138, 751
2160 DATA 38, 183, 3, 232, 87, 255, 254, 6, 1058
2170 DATA 181, 3, 235, 204, 11, 201, 117, 5, 957
2180 DATA 232, 48, 0, 235, 195, 131, 238, 2, 1081
2190 DATA 254, 14, 181, 3, 176, 32, 138, 38, 836
2200 DATA 183, 3, 232, 56, 255, 235, 177, 11, 1152
2210 DATA 201, 117, 144, 249, 235, 17, 11, 201, 1175
2220 DATA 116, 12, 209, 233, 190, 104, 13, 252, 1129
2230 DATA 173, 232, 96, 255, 226, 250, 248, 94, 1574
2240 DATA 89, 88, 195, 80, 184, 7, 14, 232, 889
2250 DATA 52, 251, 88, 195, 47, 110, 32, 84, 859
2260 DATA 111, 111, 32, 66, 105, 103, 36, 70, 634
2270 DATA 105, 108, 101, 32, 84, 111, 111, 32, 684
2280 DATA 66, 105, 103, 36, 69, 114, 114, 111, 718
2290 DATA 114, 32, 79, 112, 101, 110, 105, 110, 763
2300 DATA 103, 32, 70, 105, 108, 101, 36, 85, 640
2310 DATA 115, 97, 103, 101, 58, 32, 83, 76, 665
2320 DATA 65, 83, 72, 66, 65, 82, 32, 91, 556
2330 DATA 112, 97, 116, 104, 93, 109, 101, 110, 842
2340 DATA 117, 110, 97, 109, 101, 46, 101, 120, 801
2350 DATA 116, 32, 91, 47, 110, 93, 36, 186, 711
2360 DATA 3, 1, 180, 9, 205, 33, 232, 67, 730
2370 DATA 1, 199, 6, 0, 1, 0, 0, 199, 406
2380 DATA 6, 2, 1, 0, 0, 51, 219, 140, 419
2390 DATA 200, 67, 142, 195, 59, 195, 116, 16, 990
2400 DATA 190, 0, 1, 139, 254, 185, 16, 0, 785
2410 DATA 243, 167, 11, 201, 117, 235, 235, 70, 1279
2420 DATA 191, 128, 0, 138, 13, 50, 237, 71, 828
2430 DATA 176, 47, 242, 174, 227, 56, 139, 247, 1308
2440 DATA 79, 198, 5, 13, 191, 10, 0, 185, 681
2450 DATA 5, 0, 51, 219, 172, 44, 48, 60, 599
2460 DATA 9, 119, 9, 147, 247, 231, 50, 255, 1067
2470 DATA 3, 216, 226, 240, 137, 30, 147, 3, 1002
2480 DATA 51, 192, 72, 43, 195, 61, 128, 14, 756
2490 DATA 119, 12, 186, 36, 7, 180, 9, 205, 754
2500 DATA 33, 184, 1, 76, 205, 33, 190, 129, 851
2510 DATA 0, 172, 60, 32, 116, 251, 60, 13, 704
2520 DATA 117, 5, 186, 79, 7, 235, 230, 139, 998
2530 DATA 214, 74, 172, 60, 32, 116, 4, 60, 732
2540 DATA 13, 117, 247, 78, 198, 4, 0, 184, 841
2550 DATA 0, 61, 205, 33, 115, 5, 186, 60, 665
2560 DATA 7, 235, 202, 139, 216, 184, 2, 66, 1051
2570 DATA 51, 201, 51, 210, 205, 33, 114, 238, 1103
2580 DATA 59, 6, 147, 3, 118, 5, 186, 47, 571
2590 DATA 7, 235, 178, 80, 184, 0, 66, 51, 801
2600 DATA 201, 51, 210, 205, 33, 89, 114, 214, 1117
2610 DATA 180, 63, 186, 128, 14, 30, 6, 31, 638
2620 DATA 205, 33, 31, 114, 201, 180, 62, 205, 1031
2630 DATA 33, 140, 201, 140, 195, 59, 203, 116, 1087
2640 DATA 5, 184, 0, 76, 205, 33, 6, 180, 689
2650 DATA 52, 205, 33, 137, 30, 85, 1, 140, 683
2660 DATA 6, 87, 1, 7, 176, 9, 191, 73, 550
2670 DATA 1, 186, 98, 1, 232, 95, 0, 176, 789
2680 DATA 22, 191, 77, 1, 186, 69, 3, 232, 781
2690 DATA 84, 0, 176, 33, 191, 81, 1, 186, 752
2700 DATA 24, 3, 232, 73, 0, 161, 44, 0, 537
2710 DATA 142, 192, 180, 73, 205, 33, 186, 143, 1154
2720 DATA 14, 3, 22, 147, 3, 177, 4, 211, 581
2730 DATA 234, 184, 0, 49, 205, 33, 83, 108, 896
2740 DATA 97, 115, 104, 66, 97, 114, 58, 32, 683
2750 DATA 82, 101, 113, 117, 105, 114, 101, 115, 848
2760 DATA 32, 68, 79, 83, 32, 50, 46, 48, 438
2770 DATA 43, 13, 10, 36, 180, 48, 205, 33, 568
2780 DATA 60, 2, 115, 9, 186, 166, 8, 180, 726
2790 DATA 9, 205, 33, 205, 32, 195, 6, 80, 765
2800 DATA 180, 53, 205, 33, 137, 29, 140, 69, 846
2810 DATA 2, 88, 180, 37, 205, 33, 7, 195, 747